home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 36 / Mail_Madness_36_2002-01-03_Telenova_Side_D.d64 / irc-sim v1.0_drm (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  58 lines
  1. 10 dim na$(100),jo(100):am=0:jc=0
  2. 20 am=am+1:read na$(am):if na$(am)<>"***"then20
  3. 22 am=am-1
  4. 30 fori=1toam:jo(i)=int(rnd(1)+.5):ifjo(i)=1thenjc=jc+1
  5. 31 next
  6. 100 poke53280,12:poke53281,1:print"[147][144]"
  7. 102 goto5000
  8. 110 c=int(rnd(1)*am+1):ifjo(c)=1then110
  9. 120 jo(c)=1:g=int(rnd(0)*4)
  10. 125 print"*** "na$(c)" joined #c-64"
  11. 128 fori=1tog:cg=int(rnd(1)*am):gf=0
  12. 130 if(jo(cg)=1)and(cg<>c)thenprint"[144]<"na$(c)"> "na$(cg):gf=1
  13. 134 d=int(rnd(1)*1000):fordv=1tod:nextdv
  14. 135 r=int(rnd(1)*50):if(r>35)and(gf=1)thenprint"[144]<"na$(cg)"> "na$(c)
  15. 138 d=int(rnd(1)*2200):fordv=1tod:nextdv
  16. 140 next
  17. 150 d=int(rnd(1)*3000):fordv=1tod:nextdv
  18. 160 o=int(rnd(1)*50):ifo<25then200
  19. 170 c=int(rnd(1)*am):ifjo(c)=0then170
  20. 180 jo(c)=0:print"*** "na$(c)" has left #c-64"
  21. 200 d=int(rnd(1)*3000):fordv=1tod:nextdv
  22. 210 l=int(rnd(1)*50):ifl<42then250
  23. 220 c=int(rnd(1)*am):ifjo(c)=0then220
  24. 230 print"[144]<"na$(c)"> poop!"
  25. 250 d=int(rnd(1)*1000):fordv=1tod:nextdv
  26. 260 l=int(rnd(1)*50):ifl<30then300
  27. 270 c=int(rnd(1)*am):ifjo(c)=0then300
  28. 280 cg=int(rnd(1)*am):ifjo(cg)=0then280
  29. 285 if c=cgthen300
  30. 290 print"*** "na$(c)" sets mode +o to "na$(cg)
  31. 300 d=int(rnd(1)*1000):fordv=1tod:nextdv
  32. 310 l=int(rnd(1)*50):ifl<35then350
  33. 320 c=int(rnd(1)*am):ifjo(c)=0then350
  34. 330 cg=int(rnd(1)*am):ifjo(cg)=1then330
  35. 340 print"[144]<"na$(c)"> !seen "na$(cg)
  36. 342 cg=int(rnd(1)*am):ifjo(cg)=0then342
  37. 343 d=int(rnd(1)*500):fordv=1tod:nextdv
  38. 344 print"[144]<"na$(cg)"> [195]ommodore is not here!"
  39. 345 d=int(rnd(1)*500):fordv=1tod:nextdv
  40. 346 print"[144]<"na$(c)"> [193]h, okay! :)"
  41. 350 goto110
  42. 5000 print"[201][210][195]-[211]imulator [214]1.0"
  43. 5010 print"by [206]inja/[212]he [196]reams in 2001":print
  44. 5020 input"[217]our handle (max. 9 chars) ";n$:jo(am+1)=1:na$(am+1)=left$(n$,9)
  45. 5030 print"[147]*** "na$(am+1)" joined #c-64":goto110
  46. 5040 print"*** "na$(c)" joined #c-64"
  47. 10000 data "[218]er0-[216]","[211]oun[196]emon","[199]raham","[206]inja[196][210][205]","[215][214][204][164][216]e[206]","[206]ucleus"
  48. 10010 data "[202]ailbird","[196]a[198]unk","[202]azzcat","[214]engence","[194]lender","[211]pectator"
  49. 10020 data "[196]eekay","[205]ac[164][196][205][193]","[212]hbl-[208][212][214]","[197]uvel[206]oko","[202]eff[195]rest","[212][194][194]","[193][205][202]"
  50. 10030 data "[195]hotaire","[208]ater[208]i","[197]lectric","[201]opop","[212]aper[164]3ad","[200]0[204][204]0[215][205][193][206]"
  51. 10040 data "[195]0unt[218]3r0","[195]upid","[203]rill","[212]ecmo","[196]eadbeat","[199]illigan"
  52. 10050 data "[195]haot^[198][210]","whk","[215]yndex","[207]swald-","[206]ate/[196][193][195]","[202]ari[218][218][218]","[195]ream[196]"
  53. 10060 data "[194]rite[204]ite","[212]woflower","[195]yber[194]rn","[216]bow","[194]ooker","[194]izk[196][205][199]"
  54. 10070 data "[196][202][194]","[210]eyn","[210]yan","[215]a[196]","[198]unkhaus","[194]arfly[197][216][212]","[199]rendel-[194]"
  55. 10080 data "[208]azuzu","[194]ombe","anonym","c[217][195][204][207][206][197]","r[193][217][196][197][206]0","x[201][201][201][[215][207][215]]","[211]rx"
  56. 10090 data "[210]aven","[199]arvin","6[210]6","[193]rman[164][216]e[206]","groepaz","[211]lator"
  57. 19999 data "***"
  58.